home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / B-C / CTherm.cpt / MiniIntf.p < prev    next >
Encoding:
Text File  |  1990-09-01  |  640 b   |  27 lines  |  [TEXT/PJMM]
  1. {This stuff is copied from TCL.p so that I don't have to build an 80K project for this little demo}
  2. {You'll need to use TCL.p in your real project}
  3. {The interface for object CThermometer is in the unit with it's methods}
  4. unit MiniIntf;
  5. interface
  6.     uses
  7.         Script;
  8.  
  9.  
  10. {****************************************************}
  11. { CObject}
  12. {}
  13. {        Interface for the Object Class    }
  14. {}
  15. {****************************************************}
  16.     type
  17.  
  18.         CObject = object
  19.  
  20.                 function Clone: CObject;            { Make a copy of an object            }
  21.                 procedure Free;                    { Dispose of an object                }
  22.             end;
  23.         RectPtr = ^Rect;
  24.         RectHandle = ^RectPtr;
  25.  
  26. implementation
  27. end.